home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / sepia.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  607b  |  23 lines
  1. /* Sepia.rexx -- Make Pic sepia  */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. if pos('DigiPaint',show(ports))=0 then do
  5.   say "Can't find ToasterPaint!"
  6.   exit
  7. end
  8.  
  9. Address "DigiPaint"     /* Tell ARexx where commands go  */
  10.  
  11. '8rgb' 255 255 255  /* White color */
  12. 'Pmco'          /* colorize Mode */
  13. 'Hvof'          /* Set to radial gradient off */
  14. 'Maxe'          /* Set Edge transparency to 100% */
  15. 'Whsc'          /* Fill Whole Screen */'Pmcl'
  16. 'Pmcl'
  17. 'Cbx7'
  18. 'Pot0' $A000    /* Set transparency to < 50% */
  19. 'Whsc'          /* Fill Whole Screen */
  20. 'Shco'          /* Render to composite out */
  21. exit
  22.  
  23.